home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
spitfire
/
ecnspc.zip
/
ECNS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-12-31
|
1KB
|
56 lines
{Error Correction Notification System v1.3}
{(C) 1995 Brian Leiter}
{12-28-95}
Program Error_Correction_Notification_System;
{$M $8192,1024,1024}
Uses DOS,RMDOOR;
Var F : Text;
L,I : Integer;
Path,Null,
EC : String;
Key : Char;
Const Version = 'v1.3';
Prg = 'Error Correction Notification System ';
Procedure Prompt;
Begin
Rmsetcolor(14,0);
Rmgotoxy(1,22);
Rmsetcolor(14,0);
Rmgotoxy(1,22);Rmwrite('<ENTER>');
Key:=Upcase(Rmreadkey);
Exit;
End;
Procedure Start_It;
Begin
Path:=GetEnv('SFPATH');
L:=Length(Path);
For I:=1 To L Do Path[I]:=Upcase(Path[I]);
If Path[(Length(Path))]<>'\' Then Path:=Path+'\';
Assign(F,Path+'SFDOORS.DAT');
{$I-}Reset(F);{$I+}
If IOResult<>0 Then Exit;
For I:=1 To 20 Do Readln(F,Null);
Readln(F,EC);
L:=Length(EC);
For I:=1 To L Do EC[I]:=Upcase(EC[I]);
Close(F);
If (EC='TRUE') or (ComPort=0) or (BaudRate=0) Then Exit;
If AnsiColor=True Then Rmdisplayfile('NOEC.CLR',False);
If AnsiColor=False Then Rmdisplayfile('NOEC.BBS',False);
Prompt;
Exit;
End;
Begin
Rmclrscr;
DoorName:=Prg+Version;
RegisterRmdoor('Brian Leiter','145-8192930');
Start_It;
Halt;
End.